Mac Mania 1/MacMania 1.toast/Educational/Education'More/D-G/Guided Reading.sea/Guided Reading/background_2705.xml

Extensible Markup Language | 1992-02-08 | 34KB | 576 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2705</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6982.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_8522.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>20</top>
            <right>506</right>
            <bottom>314</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>15</textHeight>
        <name>text</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd field "text". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseDown,doSingleClickStuff,EnterInfield,returnInfield,--         tabKeyFUNCTIONS:GLOBALS:   lookin,whatToFind,punctuations,authoringSize: 3059 chars.      9:36 PM, Tuesday, July 30, 1991∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ © 1991 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseDownwait 20 ticks -- adjust this value for speed of double-clickif (the mouseClick) and (the clickLoc is within the rect of me) thenget the clicktextfindGloss itelse doSingleClickStuffend mouseDownon doSingleClickStuffglobal lookinif the visible of fld "notebook" then exit doSingleClickStuff--with command key down, they are checking gloss onlyif the commandKey is "Down" thenfindGloss the clicktextexit doSingleClickStuffelse  -- they want more info on a sentenceif the optionKey is not "down" thenanswer "Select the text that you want to study with the"¬&& "mouse cursor, and then, type the “Enter” key on the keyboard."¬with "Cancel" or "OK"if it is "cancel" then exit doSingleClickStuffend ifput "true" into lookinset locktext of me to falseend ifend doSingleClickStuffon EnterInfieldglobal lookin, whatToFind, punctuationsif lookin is "true" thenput "false" into lookinset locktext of fld "text" to truelock screenset lockmessages to true--make sure they selected something & by putting only the words--we automatically delete any leading or trailing spaces and returnsif the selection is not empty thenput word 1 to (the number of words of the selection)¬of the selection into whatToFindelse exit enterInField--check to see that the selection is part of only one sentenceif (whatToFind contains "."¬or whatTofind contains "?"¬or whatToFind contains "!")¬and last char of whatTofind is not in punctuations thenif whatToFind contains "."then put char 1 to offset(".",whatToFind) of whatToFind into whatToFindelse if WhatToFind contains "?"then put char 1 to offset("?",whatToFind) of whatToFind into whatToFindelse if whatToFind contains "!"then put char 1 to offset("!",whatToFind) of whatToFind into whatToFindend if--find the sentence cardpush cardgo to first card of bg "sentences"find string whatTofind in fld "sentence"unlock screen with visual zoom open--if the words exist in more than one sentence, we keep lookingrepeatanswer "Is this the sentence you want?" with "No" or "Yes"if it is "yes" thensend "opencard" to this cardexit repeatelselock screengo nextfind string whatToFind in fld "sentence"if the short name of this bg is not "sentences" thenanswer "Sorry, I can't locate that sentence. Try making your selection again."pop cdexit enterInFieldend ifunlock screenend ifend repeatset lockmessages to falseend ifend enterInFieldon returnInfieldglobal authoringif authoring then pass returnInFieldelse enterInfieldend returnInFieldon tabKey--allows limited formatting of the text when typingglobal authoringif authoring then put "        " into the selectionend tabKey</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>5</left>
            <top>314</top>
            <right>34</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-83</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpif the icon of me < 0 then exit mouseUpelse go homeend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>33</left>
            <top>314</top>
            <right>62</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-83</titleWidth>
        <icon>26635</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>help</name>
        <script>on  mouseUpif the icon of me < 0 then exit mouseUpglobal bubbleHelpif not bubbleHelp thenanswer "Place the cursor over any object for help with that object. Click the help button again to turn off help."put "true" into bubblehelpset the hilite of me to trueelseput false into bubblehelpset the hilite of me to falseend ifend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>61</left>
            <top>314</top>
            <right>92</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-83</titleWidth>
        <icon>19678</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>TellAbout</name>
        <script>on mouseUpif the icon of me < 0 then exit mouseUpelseglobal authoring--identifies which card we are input word 1 of fld "page" & word 2 of fld "page" into theCard--this is the stuff for authoring general information for the cardif the commandKey is "down" and authoring thenpush cdgo to card "sound" of bg "configure"else --the commandKey is not down or it is a student clickingget the script of this bgif ("on" && theCard) is not in it thenanswer "Sorry, no additional information for this card."else send theCard to this cardend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>399</left>
            <top>314</top>
            <right>427</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>30557</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>first</name>
        <script>on mouseUpvisual scroll rightgo first card of this bgend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>426</left>
            <top>314</top>
            <right>453</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseDownset the hilite of me to truemousestilldownend mouseDownon mouseStilldownvisual scroll rightgo prev cd of this bgend mouseStillDownon mouseUpset the hilite of me to falseend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>452</left>
            <top>314</top>
            <right>478</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseDownset the hilite of me to truemousestilldownend mouseDownon mouseStilldownvisual scroll leftgo next cd of this bgend mouseStillDownon mouseUpset the hilite of me to falseend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>477</left>
            <top>314</top>
            <right>507</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26865</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>last</name>
        <script>on mouseUpvisual scroll leftgo last card of this bgend mouseUp</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>406</left>
            <top>0</top>
            <right>508</right>
            <bottom>20</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Page</name>
        <script></script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>0</top>
            <right>406</right>
            <bottom>20</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>title/quote</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>377</left>
            <top>314</top>
            <right>400</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6122</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>unlock text</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd button "unlock text". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUpFUNCTIONS:GLOBALS:Size: 242 chars.      9:23 AM, Tuesday, July 18, 1989∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1989 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseUpif the visible of fld "notebook" then exit mouseUpset lockText of fld "text" to not lockText of fld "text"play "click"if lockText of fld "text" is true then set icon of me to 6122elseset icon of me to 6121select before char 1 of fld "text"end ifend mouseUp</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>91</left>
            <top>314</top>
            <right>132</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find</name>
        <script>on mouseUpglobal whatToFindask "Find what..." with whatToFindif it is not empty thenput it into whatToFindlock screenpush cardtype "F" with commandKey, shiftKeytype whatTofind & returnend ifend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>131</left>
            <top>314</top>
            <right>207</right>
            <bottom>341</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Notebook</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd button "Notebook". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUpFUNCTIONS:GLOBALS:Size: 296 chars.      12:13 PM, Friday, July 20, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseUpif not the visible of fld "notebook" thenlock screenset usermodify to trueset cantModify of this stack to falsegray bg,"notebook"gray icon,"bg btn home","bg btn help","bg btn tellAbout"popUpField trueunlock screen with visual zoom openselect before first char of fld "notebook"end ifend mouseUp</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>73</left>
            <top>263</top>
            <right>429</right>
            <bottom>280</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print/Save Notes</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd button "Print/Save Notes". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseUp,printEm,SaveEm,writeDataFUNCTIONS:GLOBALS:Size: 1760 chars.      12:13 PM, Friday, July 20, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseUpanswer "Print or Save your notes?" with "Cancel" or "Print" or "Save"if it is "cancel" then exit mouseUpput it into theActionanswer theAction && "all notebook fields or just this one?" with "Cancel" or "All" or "This One"if it is "cancel" then exit mouseUppush cdlock screenif theAction is "Save" then saveEm itelse if theAction is "Print" thenif it is "this one" then mark this cdelse mark all cdsopen report printing with template "Notebook"print marked cardsunmark all cardsclose printingend ifunlock screenselect before char 1 of fld "notebook"end mouseUpon SaveEm howmanyanswer "Append to an existing file?" with "Yes" or "No"if it is "yes" thenanswer file "Please select the file for appending…" of type "TEXT"if it is empty then exit to hypercardelse put it into thefileopen file thefilerepeat while it is not emptyset cursor to busyread from file thefile for 16000end repeatwriteData theFileelseask file "Please enter the file name…" with "My Notes"if it is empty then exit to hypercardelse put it into theFileopen file thefilewriteData theFile,howManyend ifclose file thefileend saveEmon writeData theFile, howManyif howmany is "this one" then put 1 into howmanyelse put the number of cds of this bg into howmanyrepeat with count = 1 to howmanyset cursor to busywrite "***************" & return to file thefilewrite fld "notebook" & return & return to file theFilego next card of this bgend repeatpop cdend writeData</script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>73</left>
            <top>135</top>
            <right>445</right>
            <bottom>264</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>NoteBook</name>
        <script>on mouseUpif the commandKey is not "down" then exit mouseUplock screenpopupField falsego nextfind msgif the foundchunk contains "bkgnd field 3" then popupfield truehide msgend mouseUp</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>428</left>
            <top>263</top>
            <right>445</right>
            <bottom>280</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>4383</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Grow Icon</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd button "Grow Icon". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseDown,mouseUpFUNCTIONS:GLOBALS:   authoring,ourTopLeft,myOrigLocSize: 2000 chars.      11:30 AM, Friday, July 20, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseDownglobal authoring, ourTopLeft,myOrigLocput topLeft of bg btn "student notebook" into ourTopLeftput the loc of me into myOrigLocset lockmessages to trueif not authoring then set the userlevel to 3choose rectangle toolput the mouseLoc into oldLocdrag from topLeft of bg btn "student notebook" to botRight of merepeat while the mouse is "down"set cursor to arrowif the mouseLoc is not oldLoc thenput (item 1 of the mouseLoc - item 1 of oldLoc) into horDiffput (item 2 of the mouseLoc - item 2 of oldLoc) into vertDiffdomenu "clear picture"drag from topLeft of bg btn "student notebook" to (item 1 of the mouseLoc + horDiff),(item 2 of the mouseLoc + vertDiff)put the mouseLoc into oldLocend ifend repeatend mouseDownon mouseUpglobal authoring, ourTopLeft, myOrigLocget the mouseLocset cursor to watchdoMenu "clear picture"lock screenset the rect of me to item 1 of it -17,item 2 of it -17,item 1 of it,item 2 of itget the rect of meif (item 1 of it - item 1 of ourTopLeft < 155)¬    --width delimiteror (item 2 of it - item 2 of ourTopLeft < 75) then --height delimiterbeep 2set loc of me to myOrigLocelseset rect of fld "notebook" to (item 1 of the rect of fld "notebook"),item 2 of the rect of fld "notebook",item 3 of it,item 2 of it+1set rect of bg btn "print/save notes" to item 1 of the rect of bg btn "print/save notes",item 2 of it,item 3 of it -16,item 4 of itset rect of bg btn "student notebook" to item 1 of the rect of bg btn "student notebook",item 2 of the rect of bg btn "student notebook",item 3 of it,item 4 of the rect of bg btn "student notebook"end ifunlock screenchoose browse toolset lockmessages to falseif not authoring then set the userlevel to 2select before char 1 of fld "notebook"end mouseUp</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>73</left>
            <top>115</top>
            <right>445</right>
            <bottom>135</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <name>Student Notebook</name>
        <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for bkgnd button "Student Notebook". ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  mouseDown,mouseUpFUNCTIONS:GLOBALS:Size: 1346 chars.      11:30 AM, Friday, July 20, 1990∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Parts © Copyright 1990 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on mouseDownset lockmessages to trueput the mouseLoc into newLocrepeat while the mouse is "down"lock screenput newLoc into oldLocput the mouseLoc into newLocif newLoc is not oldLoc thenput (item 1 of newLoc - item 1 of oldLoc) into horDiffput (item 2 of newLoc - item 2 of oldLoc) into vertDiffset loc of me to (item 1 of the loc of me + horDiff),(item 2 of ¬the loc of me + vertDiff)set loc of bg btn "close" to (item 1 of the loc of ¬bg btn "close" + horDiff),¬(item 2 of the loc of bg btn "close" + vertDiff)set loc of bg btn "print/save notes" to (item 1 of the loc of ¬bg btn "print/save notes" + horDiff),¬(item 2 of the loc of bg btn "print/save notes" + vertDiff)set loc of bg btn "grow icon" to (item 1 of the loc of ¬bg btn "grow icon" + horDiff),¬(item 2 of the loc of bg btn "grow icon" + vertDiff)set loc of bg fld "Notebook" to (item 1 of the loc of bg fld "notebook" + horDiff), (item 2 of the loc of bg fld "notebook" + vertDiff)end ifunlock screenend repeatend mouseDownon mouseUpselect before first char of fld "notebook"end mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>76</left>
            <top>119</top>
            <right>94</right>
            <bottom>133</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>close</name>
        <script>on mouseUpset the hilite of me to falselock screenset usermodify to trueset cantmodify of this stack to falsehot bg,"notebook"hot icon,"bg btn home","bg btn help","bg btn tellabout"popUpField falseunlock screen with visual zoom closeend mouseUpon mouseDownset the hilite of me to trueend mouseDownon mouseLeaveset the hilite of me to falseend mouseLeave</script>
    </part>
    <name>main text</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for this background. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:  openBackground,closeBackground,openCard,popUpField,extractVocab,--         extractSentences,writeItFUNCTIONS:GLOBALS:   authoring,title,punctuations,startWord,abbreviationsSize: 5749 chars.      10:02 AM, Wednesday, May 22, 1991∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ © 1991 David Herren ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-----------------------General Background Handlers--------------------------on openBackgroundglobal authoringif authoring thenshow bg btn "unlock text"instructorMenu--enable our menus for this backgroundrepeat with count = 1 to 2enable menuitem count of menu "gr instructor"end repeatend ifend openbackgroundon closeBackgroundglobal authoring--make sure the text fld is locked so it isn't changed by accidentset locktext of fld "text" to truehide bg btn "unlock text"set icon of bg btn "unlock text" to 6122--disable our menus for this backgroundif authoring then repeat with count = 2 down to 1disable menuitem count of menu "GR Instructor"end repeatpass closeBackgroundend closeBackgroundon openCardglobal titleput title into fld "title/quote"put "Card" && ((the number of this card) - ¬(the number of cds of bg "title")) into fld "page"end openCard------------------------------Student Handlers-------------------------------for the student notebookon popUpField booleanglobal authoringset cursor to watchset usermodify to booleanif not authoring and boolean then set cantmodify of this stack to not booleanset the visible of bg btn "print/save notes" to booleanset the visible of bg btn "grow icon" to booleanset the visible of bg btn "close" to booleanset the visible of fld "notebook" to booleanset the visible of bg btn "student notebook" to booleanset the hilite of bg btn "student notebook" to booleanif not boolean then set scroll of fld "notebook" to 0if not authoring and not booleanthen set cantmodify of this stack to not booleanend popUpField------------------------Instructor Handlers----------------------------------on extractVocabanswer "Replace any existing vocabulary?" with "Cancel" or "No" or "Yes"if it is "cancel" then exit to hypercardif it is "Yes" then put "true" into replacingelse put "false" into replacingpush cdput "Now extracting the Vocabulary...this will take a while."set lockmessages to truelock screengo first card of this bgrepeat for the number of cards of bg "main text"set cursor to busyput fld "text" & " " after theTextgo nextend repeat--clean up the punctuationglobal punctuationsput stripChars(punctuations,theText) into theText--create the vocabulary listput wordList(theText) into theTextsort lines of theText internationalgo to last cdif replacing then put theText into cd fld "glossary"else put return & theText after cd fld "glossary"put empty into msghide msgset lockmessages to falsesend opencard to this cdunlock screenend extractVocab-- --this creates a list of the unique words in theText in the order of-- --appearancefunction wordList theTextput empty into theListput empty into theINTListrepeat with count = 1 to the number of words of theTextset cursor to busyrepeat with cnt=1 to the number of chars of word count of theTextput chartonum(char cnt of word count of theText) & " " after theWordend repeatif theWord is not in theINTList then put theWord & return after theINTListput empty into theWordend repeatrepeat with count = 1 to the number of lines of theINTListset cursor to busyrepeat with cnt=1 to the number of words of line count of theINTListput numtochar(word cnt of line count of theINTList) after theListend repeatput return after theListend repeatreturn theListend wordListon extractSentencesglobal startWord, abbreviations--check for more abbreviationslock screenanswer "Known abbreviations ending in period: " & return¬& abbreviations & return & "Would you like to add any?" with "Cancel" or "Yes" or "No"if it is "Cancel" then exit to HyperCardelse if it is "Yes" thenrepeatask "Add..."if it is not empty thenif last char of it is not "." then put "." after itput " " & it after abbreviationselse exit repeatend repeatput abbreviations into cd fld "abbreviations" of first cardend if--check to see if they want existing sentence cards deletedanswer "Do you want to delete any existing sentence cards?" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit extractSentenceselseput "Deleting existing sentence cards..."lock screenpush cdgo to first cd of bg "sentences"repeat for the number of cds of this bg - 1set cursor to busydoMenu "delete card"end repeatput empty into fld "sentence"put empty into fld "hints"put empty into fld "additional help"pop cdend if--start the extraction of the sentencesput "Now extracting the sentences...this will take a while."set lockmessages to truelock screengo first card of this bgrepeat for the number of cards of bg "main text"put 1 into startWordput fld "text" into theTextrepeat with count = startWord to the number of words of theTextset cursor to busyget word startWord to count of theTextif last char of it is "?"¬or last char of it is "!" then writeIt count, itelse if last char of it is "." thenif last word of it is in abbreviations then next repeatif char (the number of chars of last word of it - 1)¬of last word of it ¬is in "0 1 2 3 4 5 6 7 8 9" then next repeatelse writeIt count, itend ifend repeatgo next card of this bgif the short name of this card is "First Text Card" then exit repeatend repeatset lockmessages to falseunlock screenput emptyhide msg--all doneanswer "All sentences are extracted to their own cards."¬&& "You may want to check them individually to make any"¬&& "necessary adjustments." with "Check" or "OK"if it is "Check" thenpush cdgo to first cd of bg "sentences"end ifend extractSentences--takes a sentence as determined by the extractSentences and writes it to its own cardon writeIt count, theTextglobal startWord, titleput count + 1 into startWordpush cardgo to last card of bg "sentences"if fld "sentence" is not emptythen send "doMenu" && quote & "New Card" & quote to this cardput theText into fld "sentence"put title into fld "title/quote"put "Sentence" && ((the number of this card) - ¬(the number of cds of bg "main text") - ¬(the number of cds of bg "title")) into fld "page"pop cdend writeIt</script>
</background>